BITDEF(TMPB,('400000 LSH 18));
BITDEF(REFB,'200000000000);
BITDEF(QUESB,'100000000000);
BITDEF(BINDB,'040000000000);
BITDEF(PROCB,'020000000000);
BITDEF(ITEMB,'010000000000);
BITDEF(ARY2B,'004000000000);

DEFINE B6TYP(I) "⊂⊃" = ⊂(((I) LSH -23) LAND '77)⊃;
DEFINE B9TYP(I) "⊂⊃" = ⊂(((I) LSH -23) LAND '777)⊃;

DEFINE ARYBRK = 13;
DEFINE MXSTYP = 13;

DEFINE DEL_CODE = 0;
DEFINE UNTYPED_CODE = 1;
DEFINE BTRIP_CODE =2;
DEFINE STRING_CODE = 3;
DEFINE REAL_CODE = 4;
DEFINE INTEGER_CODE = 5;
DEFINE SET_CODE = 6;
DEFINE LIST_CODE = 7;
DEFINE PROC_CODE =8;
DEFINE PROCESS_CODE = 9;
DEFINE EVENT_CODE = 10;
DEFINE CONTEXT_CODE = 11;
DEFINE REF_CODE =12;
DEFINE REC_CODE =13;